Turnbull China Bikeride/Turnbull China Bikeride - Disc 2.iso/BARNET/COMPILER/SATHER/!Sather/Library/IO/sa/err

Text File | 1996-04-09 | 1KB | 30 lines

---------------------------> Sather 1.1 source file <--------------------------
-- Rewritten by Ari Juhani Huttunen ([e-mail]), 1994              --
-- Copyright (C) International Computer Science Institute, 1994.  COPYRIGHT  --
-- NOTICE: This code is provided "AS IS" WITHOUT ANY WARRANTY and is subject --
-- to the terms of the SATHER LIBRARY GENERAL PUBLIC LICENSE contained in    --
-- the file "Doc/License" of the Sather distribution.  The license is also   --
-- available from ICSI, 1947 Center St., Suite 600, Berkeley CA 94704, USA.  --
--------> Please email comments to "[e-mail]". <----------

-- err.sa: Output on stderr.
-------------------------------------------------------------------
class ERR < $OSTREAM is
    -- Direct access to stderr.

    create:SAME is return self; end;

    plus(s:$STR):SAME is
    -- Print `s' on stderr and return self.
    FILE::stderr.plus(s);
    return self;
    end;

    plus(s:$STR) is
    -- Print `s' on stderr.
    FILE::stderr.plus(s);
    end;

end; -- class ERR